home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_enscript.idb / usr / freeware / share / enscript / squeeze.hdr.z / squeeze.hdr
Text File  |  2002-04-08  |  1KB  |  54 lines
  1. %
  2. % Squeezed `Emacs ps-print-buffer' styled header.
  3. % Copyright (c) 1998 Markku Rossi.
  4. % Author: Markku Rossi <mtr@iki.fi>
  5. %
  6.  
  7. %
  8. % This file is part of GNU enscript.
  9. %
  10. % This program is free software; you can redistribute it and/or modify
  11. % it under the terms of the GNU General Public License as published by
  12. % the Free Software Foundation; either version 2, or (at your option)
  13. % any later version.
  14. %
  15. % This program is distributed in the hope that it will be useful,
  16. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. % GNU General Public License for more details.
  19. %
  20. % You should have received a copy of the GNU General Public License
  21. % along with this program; see the file COPYING.  If not, write to
  22. % the Free Software Foundation, 59 Temple Place - Suite 330,
  23. % Boston, MA 02111-1307, USA.
  24. %
  25.  
  26. % -- code follows this line --
  27. %%DocumentNeededResources: font Helvetica
  28. %HeaderHeight:    20
  29. %Format: eurdatestr    %E
  30. %Format: pagenumstr    $V$%/$=
  31.  
  32. % Fonts.
  33. /Helvetica /HeaderFont-Large MF
  34. /HeaderLF /HeaderFont-Large findfont 12 1.3 mul scalefont def
  35.  
  36. /do_header {    % print the header
  37.   gsave
  38.     d_header_x d_header_y translate
  39.     0 setgray
  40.  
  41.     % Horizontal line.
  42.     0 1 moveto d_header_w 0 rlineto stroke
  43.  
  44.     % texts
  45.  
  46.     HeaderLF setfont
  47.     /y 6 def
  48.     5 y moveto ftail show
  49.  
  50.     72 0 rmoveto
  51.     pagenumstr show
  52.   grestore
  53. } def
  54.